Código Delphi
[-]function Thread(hWnd: Cardinal): Cardinal; stdcall;
begin
CopyFile('C:\Ejemplo_fuente.exe', 'C:\Ejemplo_destino.exe', False);
SendMessage(hWnd, WM_USER, 0, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateThread(nil, 0, @Thread, Pointer(Handle), 0, PDWORD(0)^);
end;
Tu aplicación recivirá el mensaje WM_USER cuando la copia finalice (
ejemplo).
Quien dá mas??
Saludos