有人熟悉delphi和vb的吗,把这段代码改成vb的

来源：百度知道编辑：UC知道时间：2024/06/05 01:05:15

program Project1;

uses
Windows, Messages, SysUtils;

procedure DeleteMe;
var
Batchfile: TextFile;
BatchFileName: string;
ProcessInf TProcessInformation;
StartUpInf TStartupInfo;
begin
BatchFileName := ExtractFilePath(ParamStr(0)) + '_deleteme.bat';
AssignFile(BatchFile, BatchFileName);
Rewrite(BatchFile);

Writeln(BatchFile, ':try');
Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
Writeln(BatchFile,
'if exist "' + ParamStr(0) + '"' + ' goto try');
Writeln(BatchFile, 'del %0');
CloseFile(BatchFile);

FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := SW_HIDE;
if CreateProcess(nil, PChar(BatchFileName), nil, nil,
False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
ProcessInf

第一个是利用删除自身的程序吧，网上有vb的，自己搜一下就行了

第二个好像是查找子窗体的。

改起来都很简单的
var
hWindow: HWND; 就相当于 dim hWindow as HWND
不过vb里面么有HWND的，改成dim hWindow as long 就行了

begin end 相当于 { 和} 就是一个块就行了

小子，你想关别人的瑞星啊，一看你就不是好人，关了人家的瑞星然后删除自己的程序，TMD，鄙视你

有人熟悉delphi和vb的吗,把这段代码改成vb的 VB和DELPHI的问题! VB和DELPHI的异同 delphi,vc和vb的编程思想一样吗？谢谢熟悉Delphi的请进熟悉delphi的请进懂vb和delphi的请进关于VB和Delphi的优劣和难易程度 delphi,vb的用处和学习的意义。关于vb和delphi的内存读取的问题