小编gra*_*842的帖子

寻找一种在Windows计算机上找到已安装的视频卡(芯片)的方法.

通过Win 7支持XP的解决方案.

我正在使用Delphi 2010.

谢谢

我正在运行delphi(2010)的.bat文件.

procedure TForm1.Button2Click(Sender: TObject);
var sCmd: String;
 Begin
sCmd := Pwidechar('b4a_c2dm.bat' +' ' +'send ' + Trim(Edit1.Text)+' '  + Trim(edit2.Text ));
ShellExecute(0, 'open', 'b4a_c2dm.bat', PChar(sCmd), nil, SW_SHOWMAXIMIZED);
   end;

这将打开cmd.exe并在cmd.exe中传递正确的字符串,但是

一些.bat文件中的行(java -cp b4a_c2dm.jar anywheresoftware.b4a.c2dm.C2DM%*)如何显示在cmd.exe窗口中,而不是让.bat文件完成其工作.

有人可以帮我弄这个吗.

我在Win 7 64b上.我试图从我的delphi应用程序运行msconfig.msconfig.exe文件位于system32文件夹中.我将msconfig.exe复制到c:\并且效果很好.这看起来像某种权限问题.

var
errorcode: integer;
 begin
   errorcode :=
ShellExecute(0, 'open', pchar('C:\Windows\System\msconfig.exe'), nil, nil, SW_NORMAL);
if errorcode <= 32 then
ShowMessage(SysErrorMessage(errorcode));
end;

有谁看过这个,并想出如何从sys32运行msconfig.exe.

我想指向http://somesite.com/somefile.exe并检查exe服务器端的文件版本,并将版本信息与我的计算机上准备好的同一.exe文件进行比较.如果服务器端文件较新,那么我想下载它.

我有下载文件和检查文件版本的功能,但我想检查文件版本是否比我在计算机上的版本更新.

我不想将exe下载到我的计算机,然后检查文件版本.

这里有人能够做到这一点吗？

function GetVersion(sFileName:string): string;
var
 VerInfoSize: DWORD;
 VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
 Dummy: DWORD;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(sFileName), Dummy);
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(sFileName), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
 with VerValue^ do
begin
 Result := IntToStr(dwFileVersionMS shr 16);
 Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
 Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
 Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
end;
 FreeMem(VerInfo, VerInfoSize);
end;

procedure TForm1.Button1Click(Sender: TObject);
 var
 Http: …