Delphi-Quellcode:
function Copy2WinDir: Boolean;
var
lpBuffer: Array[0..MAX_PATH] of Char;
sPfad: String;
begin
ZeroMemory(@lpBuffer, sizeof(lpBuffer));
GetWindowsDirectory(lpBuffer, sizeof(lpBuffer));
sPfad := String(lpBuffer) + '\' + ExtractFileName(ParamStr(0));
Result := CopyFile(PChar(ParamStr(0)), PChar(sPfad), False);
end;
.. ich will nicht wissen was du machst, flipscreen und dann windir :O