大家来看下，很有意思，(90分)

梦中过客 · 2004-04-22

代码如下，这个窗体是在程序运行中建立，我想让它删除自身并复制自己到系统目录中启动，有窗体的能做到，但这个自己用api建立的窗体，我每回都做失败，请指教， program paswin; uses   Windows,Messages; function WindowProc(Window:Hwnd; AMessage,Wparam,Lparam:Longint):Longint;stdcall;export; begin   WindowProc:=0;   case AMessage of     wm_destroy:       begin         PostQuitMessage(0);         Exit;       end;   end;   WindowProc:=DefWindowProc(Window,AMessage,Wparam,Lparam); end; function WinRegister:Boolean; var   wincls:TWndClass; begin   wincls.style:=cs_hRedraw or cs_vRedraw;   wincls.lpfnWndProc:=@WindowProc;   wincls.cbClsExtra:=0;   wincls.cbWndExtra:=0;   wincls.hInstance:=Hinstance;   wincls.hIcon:=LoadIcon(0,IDI_APPLICATION);   wincls.hCursor:=LoadCursor(0,IDC_Arrow);   wincls.hbrBackground:=hBrush(Color_Window);   wincls.lpszMenuName:=nil;   wincls.lpszClassName:='BLANKWIN';   Result:=RegisterClass(Wincls)<>0; end; function WinCreate:Hwnd; var   hWindow:HWnd; begin   hWindow:=CreateWindow('BLANKWIN','A BLANK WINDOW',WS_OVERLAPPEDWINDOW,           CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,0,0,Hinstance,nil);   if hWindow<>0 then     begin       ShowWindow(hWindow,Cmdshow);       UpdateWindow(hWindow);     end;   Result:=hWindow; end; var   AMessage:TMsg;   hwindow:HWnd; begin   if not WinRegister then Exit;   hWindow:=winCreate;   if hWindow=0 then Exit;   while GetMessage(AMessage,0,0,0) do     begin       TranslateMessage(AMessage);       DispatchMessage(AMessage);     end; end.

wqhatnet · 2004-04-22

刘麻子 · 2004-04-22

var   sysdir:string[255]; begin   sysdir[0]:=GetSystemDirectory(pchar(sysdir),255);      //系统目录   if sysdir[length(sysdir)]<>'/' then   sysdir:=sysdir+'/';   if not SameText(ExtractFilePath(ParamStr(0)),sysdir) //不是执行自系统目录   begin     Try       CopyFile(Pchar(ParamStr(0)),Pchar(sysdir+Extractfilename(ParamStr(0)),false);//复制到系统目录       Winexec(sysdir+Extractfilename(ParamStr(0)),sw_hide); //自系统录下隐藏执行     Finally       halt;     end;   end   else   begin     //原来主程序中的 begin end  里面内容。。。   end; end;      gei   fen   !!    3ks   !!

刘麻子 · 2004-04-22

这样可以： var   myMessage:TMsg;   hwindow:HWnd;   sysdir,filename:string[255];   //主程序 begin   filename:=Extractfilename(ParamStr(0));                     //取得文件名   sysdir[0]:=char(GetSystemDirectory(Pchar(@sysdir[1]),255)); //取得系统目录   if sysdir[length(sysdir)]<>'/' then    sysdir:=sysdir+'/';  //规范化   if not SameText(ExtractFilePath(ParamStr(0)),sysdir) then   //不是执行自系统目录   begin     showmessage('嘿嘿');     Try       CopyFile( Pchar(ParamStr(0)) , Pchar( sysdir+filename), false) ;//复制到系统目录       Winexec(pchar(sysdir+filename),sw_hide);                        //自系统录下隐藏执行     Finally       halt;      //退出     end;   end   else   begin     if not WinRegister then Exit;     hWindow:=winCreate;     if hWindow=0 then Exit;     while GetMessage(myMessage,0,0,0) do       begin         TranslateMessage(myMessage);         DispatchMessage(myMessage);       end;   end;

high_hill · 2004-04-22

刘麻子,的做法应该可以。 你的先把自己不过去，然后再删除，删除时程序应该已经退出 就是调几个api函数吗！

刘麻子 · 2004-04-22

删除自己，代码来自《Delphi下深入Windows核心编程》......  就是建立一个Dos批处理文件并且执行 procedure DeleteMe; var   BatchFile: TextFile;   BatchFileName: string;   ProcessInfo: TProcessInformation;   StartUpInfo: 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,     ProcessInfo) then   begin     CloseHandle(ProcessInfo.hThread);     CloseHandle(ProcessInfo.hProcess);   end; end;

梦中过客 · 2004-04-27

谢谢刘兄，分是你的，

梦中过客 · 2004-04-27

多人接受答案了。

大家来看下，很有意思，(90分)

梦中过客

Unregistered / Unconfirmed

wqhatnet

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

high_hill

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

梦中过客

Unregistered / Unconfirmed

梦中过客

Unregistered / Unconfirmed

Similar threads