Читать «Виртуальная библиотека Delphi» онлайн - страница 16

Unknown

А вот как отрубить показ файла в Ctrl-Alt-Del

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

implementation

procedure TForm1.Button1Click(Sender: TObject);

begin //Hide

 if not (csDesigning in ComponentState) then

  RegisterServiceProcess(GetCurrentProcessID, 1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin //Show

 if not (csDesigning in ComponentState) then

  RegisterServiceProcess(GetCurrentProcessID, 0);

end;

Добавление программы в автозапуск

sProgTitle: Название для программы

sCmdLine: Имя EXE файла с путем доступа

bRunOnce: Запустить только один раз или постоянно при загрузке Windows

procedure RunOnStartup(sProgTitle, sCmdLine : string; bRunOnce : boolean);

var

 sKey : string;

 reg : TRegIniFile;

begin

 if (bRunOnce)then sKey := 'Once'

 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' );