[Delphi] Poka?ż pulpit... Poka?ż okno...

0

Zastanawiam się jak użyć w delphi tego:

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

Jest to text wyciągnięty z pliku Pokaż Pulpit (oczywiste jest chyba co on robi)...
Jak użyć tego w delphi???
I jeszcze jak jakieś uaktywnić okno tzn. aktywny jest pulpit, i chcę uaktywnić np. okno z moim programem.

0

ale co chcesz z tym zrobić konkretnie ??

0

Spróbuj czegoś takiego:

uses ShlObj;

procedure Shell_MinimizeAll;
var
   Shell : OleVariant;
begin
   Shell := CreateOleObject('Shell.Application') ;
   Shell.MinimizeAll;
end;

albo tego:

FileName:String;
FileName='c:\Folder\ShowDesktop.Scf';
ShellExecute(0, 'open', pchar(FileName), Nil, Nil, SW_NORMAL);

Nie sprawdzałem, nic nie gwarnatuję..

1 użytkowników online, w tym zalogowanych: 0, gości: 1