Архив форумов ЦИТФорума

[Torello]

какие есть в Delphy 6 процедуры, чтобы
1. Скопировать файл
2. Запустить внешнюю программу

[doctoraugust]

1:
var
PFROM_PATH, PTO_PATH:PChar;
FROM_PATH, TO_PATH:string;
res:boolean;
strpcopy(PFROM_PATH,FROM_PATH);
strpcopy(PTO_ PATH,TO_PATH);
res:=copyfile(findedname,newname,false);
~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2: 1)ShellExecute
2)CreateProcess

[batja]

данный пример касается запуска другой программы.

З десь мы из нашего проекта запускаеи прогу BrouserMusic.exe а сам проект сворачивается,а по окончанию работы проги восстанавливается.

procedure TForm1.LabelRunClick(Sender: TObject);
var
si : Tstartupinfo;
p : Tprocessinformation;
begin

FillChar( Si, SizeOf( Si ) , );
with Si do
begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Application.Minimize;
CreateProcess(nil,'BrouserMusic.exe',nil,nil,false,
Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
Application.Restore;

end;

[Torello]

Я запускаю прогу с помощью WinExec(Pchar('путь_в_формате_string')); и почему-то прога запускается раз этак 300, в чём может быть глюк?

[Torello]

Я запускаю прогу с помощью WinExec(Pchar('путь_в_формате_string')); и почему-то прога запускается раз этак 300, в чём может быть глюк?