@@@@@@@@@@@@@@@@@@一个简单的问题◎◎◎◎◎◎◎◎◎◎◎ 如何让程序运行后删除程序本身? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 PostMessage(Application.Handle, WM_QUIT, 0, 0); procedure DeleteMe;var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo;begin { create a batchfile in the applications directory } BatchFileName := ExtractFilePath(ParamStr(0)) + '$$336699.bat'; { open and write the file } AssignFile(BatchFile, BatchFileName); Rewrite(BatchFile); Writeln(BatchFile, ':try'); Writeln(BatchFile, 'del "' + ParamStr(0) + '"'); Writeln(BatchFile,'if exist "' + ParamStr(0) + '"' + ' goto try'); Writeln(BatchFile, 'del "' + BatchFileName + '"'); 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, ProcessInfo) then begin CloseHandle(ProcessInfo.hThread); CloseHandle(ProcessInfo.hProcess); end;end;procedure TForm1.Button1Click(Sender: TObject);begin deleteme;end; 关于窗口登录的问题 新手提问 有劳各位 求Delphi 2009实现玻璃效果 再一次发贴求助DLL窗体的问题 主程序进行大量工作时,DLL窗体会暂时冻结 有京沪深的吗? 谁能告知TClsPanel是什么组件?谢谢!! 得到数据库日期的日 which one can tell me why the women of BorCon are so fat? delphi连接sql2000的问题 吐血提问!!返回数据集的问题!!! 安装过kylix吗 高手帮帮我,看看应该怎么实现? 请教如何创建MDIChild子窗体?
var
BatchFile: TextFile;
BatchFileName: string;
ProcessInfo: TProcessInformation;
StartUpInfo: TStartupInfo;
begin
{ create a batchfile in the applications directory }
BatchFileName := ExtractFilePath(ParamStr(0)) + '$$336699.bat'; { open and write the file }
AssignFile(BatchFile, BatchFileName);
Rewrite(BatchFile); Writeln(BatchFile, ':try');
Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
Writeln(BatchFile,'if exist "' + ParamStr(0) + '"' + ' goto try');
Writeln(BatchFile, 'del "' + BatchFileName + '"');
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,
ProcessInfo) then
begin CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
deleteme;
end;