小编Oma*_*bal的帖子

我尝试了以下代码,但它不从前台窗口检索文本!

procedure TForm1.Button1Click(Sender: TObject);
 var
  title : pansichar;
  s : string;
begin
    GetWindowText(GetForegroundWindow(), title,GetWindowTextLength(GetForegroundWindow()) + 1);
    s := title;
    showmessage(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not deletefile('c:\test') then
  raiselastoserror
end;

我得到操作系统错误5:访问被拒绝当我使用相同的代码删除文件说wwj.txt它工作正常,但不适用于文件夹我做错了什么？

我的表格看起来很沉闷和像我在编程的大型项目中那样(不能重新编程程序)我意外地使用文本编辑器修改了该项目的"comiled resource script",当我重新打开我的项目时它询问我是否需要重新创建一个我单击是的文件.现在我的表格看起来很沉闷和Windows 95风格,添加xpmanifest组件确实将它们带回到xp主题但是Windows 7,我没有windows7/vista所以我不能测试我的表单是否像win7上的win7表单一样(但是可能他们看起来和感觉像xp)如何让他们赢得7风格再次
帮助!
我正在使用delphi 2010

有没有办法看看是否正在使用tfile流的实例？例如,如果我声明类型为tfilestream的FS,向其写入缓冲区并最终使用tfilestream.free释放流,我可以检查以下内容:

if 
tfilestream.NotActive
then
 //code
if tfilestream.beingused then
 //code
if tfilestream.free = true then
    //code

主动和被使用的方法不存在真实,也不能测试tfilestream.free = true 只是为了让我知道我想要问什么

以下代码列出文件但不列出目录

var 
rec : tsearchrec;
begin
findfirst('c:\test\*',faanyfile-fadirectory,rec);
        showmessage(rec.Name);
if findnext(rec) <> 0 then close else
showmessage (rec.Name);
end;

以下程序返回error : e2035 not enough actual parameters2个位置(第39和45行)并且未编译.有人可以帮帮我吗？我可以在这里输入0或null代替参数吗？

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ComObj,shdocvw,activex, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
   mybrowser : iwebbrowser2;
  myUserName,
myPassword,loginURL : string;
    Flags: OleVariant;

begin
    Flags :=  navOpenInNewWindow;
     MyBrowser := CreateOleObject('InternetExplorer.Application') as IWebBrowser2;
MyBrowser.Navigate('http://www.gmail.com',flags,'_blank');

myUserName := 'UserName';
myPassword := 'password';
loginURL:='javascript:var Email …

我需要一个可以将c/c ++代码转换为delphi(对象pascal)代码的工具,尝试过openc2pas但它几乎没用,而且使用起来很痛苦是一个可用的替代方案吗？(免费或商业)

我正在制作一个程序来实现xor加密,同时玩我的程序我输入了各种组合键,程序运行正常,直到我输入键值904932,这导致了'd'字符的省略,例如,如果我输入'我的名字是dexter,我讨厌我在编辑1中的愚蠢姐妹dede',加密和解密将使我的edit1文本:'嗨,我的名字是exter,我讨厌我的stupi姐姐ee'发生了什么？

procedure TForm2.Button1Click(Sender: TObject);
    var
     c:char;
     i,key: integer;
    begin
      s := edit1.Text;
       edit1.Text := #0;
       key := strtoint(edit2.text);
       key := key + 128;//i am adding 128  so that i dont get NULL char 
       for I := 1 to length(s)  do {or 0 to lenght(s)? i dont know}
      begin
       c := s[i];
       c := char(ord(c) xor key);
       edit1.Text :=  edit1.Text + c;
      end;
    end;