Hallo, Ich bins schon wieder.
Erstmal der Code
Delphi-Quellcode:
interface
var
scf: Textfile;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(scf, 'C:\desk.txt');
ReWrite(scf);
Writeln(scf,'[Shell]');
Writeln(scf,'Command=2');
Writeln(scf,'IconFile=explorer.exe,3');
Writeln(scf,'[Taskbar]');
Writeln(scf,'Command=ToggleDesktop');
CloseFile(scf);
RenameFile('c:\desk.txt', 'c:\desk.scf');
ShellExecute(Application.Handle, 'Open','C:\desk.scf', nil, nil, SW_SHOWNORMAL);
ShowWindow(Self.Handle, SW_SHOW);
end;
...
Und ratet mal was er macht. Nachdem er durch die .scf den Desktop anzeigt, zeigt der meine Form nicht an. Obwohl das genau nach dem ausführen der scf passiert. Ne Idee wie das sein kann ?
Dankbar für jede Hilfe
