Wystarczy ściągnąć i uruchomić plik wpisu do rejestru.

W tym celu, należy dodać w OnCreate formy linjkę:

SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

Do sekcji "uses" należy dopisać registry

Np. w zdarzeniu OnClick buttona wpisać:

var
Reg : TRegistry;
Sciezka : array[0..MAX_PATH] of char;
X : string;

begin

Reg:=TRegistry.Create;
GetCurrentDirectory(sizeof(Sciezka),Sciezka);
X := (Sciezka+'\nazwa_programu.exe');
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
True);
Reg.WriteString('nazwa_programu', X);
Reg.free;
end;

Do funkcji "OnCreate" formy należy dodać:

var
hM : HDC;
begin
hM:=CreateFileMapping(THANDLE($FFFFFFFF),nil,
PAGE_READONLY,0,32,'ApplicationTestMap');

if GetLastError=ERROR_ALREADY_EXISTS then
begin
ShowMessage('Nie można uruchomić tego samego programu');
Application.Terminate;
CloseHandle(hM);
end;

ShellExecute(Handle,'open','http://www.krystian_rad.go.pl',nil,nil,SW_SHOWNORMAL);

ShellExecute(Handle,'open','mailto:krystian_rad@o2.pl',nil,nil,SW_SHOWNORMAL);

Włączenie monitora:
SendMessage(Application.Handle,wm_SysCommand,SC_MonitorPower,-1);

Wyłączenie monitora:
SendMessage(Application.Handle,wm_SysCommand,SC_MonitorPower,1);

Do sekcji uses dodajemy mmsystem

Wsunięcie:
mciSendString('Set cdaudio door closed wait',nil,0,handle);

Wysunięcie:
mciSendString('Set cdaudio door open wait',nil,0,handle);

WinExec('command.com /c dir',sw_normal);

CopyFile('C:\plik.txt', 'D:\plik.txt', True);

Do sekcji uses dodajemy shellapi

ShellExecute(Handle, 'open', 'rundll32', 'shell32,Control_RunDLL', nil, SW_SHOW);

Plik:

FileExists('C:\plik.txt')

Katalog:

DirectoryExists('C:\folder')

Przykład:

if FileExists('C:\plik.txt') then xxx else xxx;

Plik:

DeleteFile('C:\nazwa_pliku.txt');

Katalog:

RemoveDir('C:\nazwa_katalogu');

Przykład:

edit1.Text:=GetCurrentDir;