Developing.ru

Код: Выделить всё

procedure ToggleDesktop;
var f: TextFile;
begin
AssignFile(f, 'toggle.scf');
Rewrite(f);
Writeln(f, '[Shell]');
Writeln(f, 'Command=2');
Writeln(f, 'IconFile=explorer.exe,3');
Writeln(f, '[Taskbar]');
Writeln(f, 'Command=ToggleDesktop');
CloseFile(f);
ShellExecute(0, 'open', 'toggle.scf', '', '', SW_SHOWNORMAL);
// DeleteFile('toggle.scf');
end;