标签: delphi-2010

希望在Windows中找到有服务经验的人.

我试图NdisProt在Delphi中使用以太网适配器的驱动程序

my_Handle := CreateFile(PChar('\\.\NdisProt'),
    GENERIC_WRITE or GENERIC_READ, 0, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

(也试过\\.\\NdisProt了)

执行后my_Handle 总是有值'4008'十进制,GetLastError总是返回0

如果我尝试读取或写入文件,我会得到访问冲突,任何人都知道为什么我会得到这种不受欢迎的行为？

我试图从桌子上得到药物的价格，但我得到了：

procedure TForm1.BuyButtonClick(Sender: TObject);
var
  iAmount : integer;
  rRate : real;
  sMedication : string;
  sRate : string;
begin
  iAmount := 0;
  sMedication := BuyCombobox.Items[BuyCombobox.ItemIndex];
  dmHospital.qryPrices.SQL.Clear;
  dmHospital.qryPrices.SQL.Add('SELECT Price(R) FROM MedicationPrices WHERE Medication = quaotedstr(sMedication)');
  sRate := dmHospital.qryPrices.SQL;
  ShowMessage(sRate);
end;

所以我试图登录一个程序,只需通过文本文件检查ID(用户名)和密码,但我得到了这个代码的I/O错误103,我无法弄清楚原因.我处于一个非常基本的delphi级别,对于糟糕的代码等抱歉

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
   ID, Password: String;
   PATLogins: TextFile;
   checkpass, checkID: String;
   correctpass, correctID: Boolean;
begin
 ID:= edtID.Text;
 Password:= edtPassword.Text;
 correctID:= False;
 correctpass:= False;
 AssignFile(PATLogins, 'PATLogins.txt');
 CloseFile(PATLogins);
 Reset(PATLogins);


 while ((NOT EOF(PATLogins)) OR (checkID = ID)) do
     begin
       ReadLn(PATLogins, checkID);
     end;
 if (checkID = ID) then
     begin
        correctID:= True;
     end;
 if EOF then
     begin
       ShowMessage('Incorrect ID');
       edtID.Clear;
     end;

 CloseFile(PATLogins);
 reset(PATLogins);


 while ((NOT EOF(PATLogins)) OR (checkpass = Password)) do
       begin
           ReadLn(PATLogins, checkpass);
       end;
 if (checkpass = Password) then
     begin
        correctpass:= True; …

我想知道如何在程序关闭并重新打开后保存“变量”的内容。

例如：iCount:=0; inc(iCount)=1;

当我关闭程序并重新打开时，我希望 iCount 包含 1。谢谢。

我正在尝试将字符串转换为浮点数,当我传递单个字符时它会给出异常.

FMandateSize := StrToFloat(EditMandateSize.Text);

任何想法如何将单个char转换为float？

我需要将几个虚拟键（VK_RETURN）从我的delphi应用程序（myapp.exe）发送到另一个应用程序（target.exe）。 Eg : Send VK_RETURN twice , from myapp.exe , into target.exe

我使用的操作系统是Windows 7 64位和Windows XP。

我读到：如何将“ENTER”按键发送到另一个应用程序？，将 Ctrl+Key 发送到第三方应用程序（对我来说不起作用）以及其他先前提出的问题。但我还是很困惑。

如何将焦点设置到目标应用程序？

如何将虚拟按键发送到目标应用程序？

简单的例子：我想将 VK_RETURN 发送两次到 notepad.exe 或 calc.exe （已加载）或我的 delphi 应用程序中的任何其他程序。怎么做 ？

请在 Delphi 2010 中执行此操作的最简单方法...

PS：我尝试了来自http://delphi.about.com/od/adptips2004/a/bltip1104_3.htm的SndKey32.pass 并得到错误：[DCC错误] SndKey32.pas(420): E2010不兼容的类型：'Char'和'安西查尔'

  If (Length(KeyString)=1) then MKey:=vkKeyScan(KeyString[1])

在Delphi 2010中,有一个函数IntToHex() 可以将integer值转换hexadecimal为类型UNICODE string.

我需要的是一个将其integer转换hexadecimal为类型的函数AnsiString.

在我的VCL项目中,我有一个TMemo带有以下文本(|是插入符号):

|                   |  
|Hello world |      |  
|                   |  
|test               |  
|                   |  
|                   |    

当我按下Down按钮时,插入符号移动到此处:

|                   |  
|Hello world        |  
||                  |  
|test               |
|                   |  
|                   |  

我需要的是它移动到这里:

|                   |  
|Hello world        |  
|               |   |   
|test               |  
|                   |  
|                   | 

我想在TCanvas上绘制一个弯曲的右箭头作为Microsoft Word中的形状.有人知道一种工作方法吗？

我需要用于Delphi 2010控制台应用程序的Crt单元(ReadKey,GotoXY,...).Delphi 2010是否有任何Crt单元？