Виртуальная библиотека Delphi

 else sKey := '';

 reg := TRegIniFile.Create('');

 reg.RootKey := HKEY_LOCAL_MACHINE;

 reg.WriteString('Software\Microsoft'

  + '\Windows\CurrentVersion\Run'

  + sKey + #0,

  sProgTitle, sCmdLine);

 reg.Free;

end;

// Например

RunOnStartup('Title of my program','MyProg.exe',False );

Примечание. Этот пример удобно использовать при написании деинсталляторов — добавить однократный вызов деинсталлятора и запросить от пользователя перезагрузку. Этот прием позволит безболезненно удалять DLL и им подобные файлы, которые обычном способом удалить невозможно (они загружены в силу того, что использовались деинсталлируемой программой или работают в момент деинсталляции).

Удаляет файл в корзину

uses ShellAPI;

function DeleteFileWithUndo( sFileName : string ) : boolean;

var fos : TSHFileOpStruct;

begin

 sFileName:= sFileName+#0;

 FillChar( fos, SizeOf( fos ), 0 );

 with fos do begin

  wFunc := FO_DELETE;

  pFrom := PChar( sFileName );

  fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;

 end;

 Result := ( 0 = ShFileOperation( fos ) );

end;

Добавить ссылку на мой файл в меню Пуск|Документы 

uses ShellAPI, ShlOBJ;

procedure AddToStartDocumentsMenu( sFilePath : string );

begin

 SHAddToRecentDocs( SHARD_PATH, PChar( sFilePath ) );

end;

// Например

AddToStartDocumentsMenu( 'c:\windows\MyWork.txt' );

Устанавливаем свой WallPaper для Windows

program wallpapr;

uses Registry, WinProcs;

procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean );

var

 reg : TRegIniFile;

begin

 // Изменяем ключи реестра

 // HKEY_CURRENT_USER

 // Control Panel\Desktop

 // TileWallpaper (REG_SZ)

 // Wallpaper (REG_SZ)

 reg := TRegIniFile.Create('Control Panel\Desktop' );

 with reg do begin

  WriteString( '', 'Wallpaper', sWallpaperBMPPath );

  if( bTile )then begin

   WriteString('', 'TileWallpaper', '1' );

  end else begin

   WriteString('', 'TileWallpaper', '0' );

  end;

 end;

 reg.Free;

 // Оповещаем всех о том, что мы

 // изменили системные настройки

 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );

end;

begin

 // пример установки WallPaper по центру рабочего стола

 SetWallpaper('c:\winnt\winnt.bmp', False );

end.

Как запретить кнопку Close [x] в заголовке окна. 

procedure TForm1.FormCreate(Sender: TObject);

var Style: Longint;

begin

 Style := GetWindowLong(Handle, GWL_STYLE);

 SetWindowLong(Handle, GWL_STYLE, Style And Not WS_SYSMENU);

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

 if (Key = VK_F4) and (ssAlt in Shift) then begin

  MessageBeep(0); Key := 0;

 end;

end;

Каким образом можно изменить системное меню формы? 

Hе знаю как насчет акселераторов, надо поискать, а вот добавить Item — пожалуйста

type

 TMyForm=class(TForm)