Delphi

[Chudo4258]

Нужно написать прогу, которая капирует некоторый файл и запускает его (в моем случае файл "1.exe").
Сам файл 1.ехе находится в той же папке что и программа.
Скопировать его надо в папку "C:\WINDOWS".
И после копирования прога сама должна запистить файл 1.ехе, но уже с папки "C:\WINDOWS".

[Terran]

Определить каталог в который установлена Windows можете так:

Function WinDir: String;
Var
IntLen: Integer;
StrBuffer: String;
Begin
SetLength(strBuffer,1000);
IntLen:=GetWindowsDirectory(PChar(StrBuffer),1000);
WinDir:=Trim(Copy(StrBuffer,1,IntLen));
End;

Если файл один, то можете его копировать функцией CopyFile('Откуда копировать','Куда копировать',False);
Для запуска файла можете использовать функцию ShellExecute.