Для каких целей интересно? =)
вот мой старый код... должен работать:
| Код |
procedure SetAutorun(aProgTitle,aCmdLine: string; aRunOnce: boolean );
var
hKey :string;
hReg :TRegIniFile;
begin
if aRunOnce then hKey := 'Once'
else hKey := '';
hReg := TRegIniFile.Create( '' );
hReg.RootKey := HKEY_LOCAL_MACHINE;
hReg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run'
+ hKey + #0,
aProgTitle,
aCmdLine );
hReg.destroy;
end;
....
function WinCopyFile(FromFile, ToDir : string) : boolean;
var
F :TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile:=FromFile+#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result:=ShFileOperation(F) = 0;
end;
...
var
s :string;
begin
SetLength(s, 255);
GetWindowsDirectory(PChar(s), 255);
SetLength(s, StrLen(PChar(s)));
uppercase(s);
WinCopyFile(paramstr(0), s + '\MYAPL.EXE');
SetAutoRun('Myapl',s + '\MYAPL.EXE', false);
|
Тока все же неуверен) |
