Zwei Windows Explorer starten und nebeneinander bildschirmfüllend positionieren

[bra]

Ich musste die eine (!) Routine jetzt zig mal durcharbeiten, um zu verstehen, was die überhaupt macht. Das ist ja vollkommen unübersichtlich mit den ganzen try...excepts.

[FarAndBeyond]

Das Ding ist doch völlig linear....

Nirgendwo steht geschrieben, dass du das auch so machen mußt... vielleicht mache ich es irgendwann anders... :-)

[Erdbär]

Zitat:

Zitat von bra (Beitrag 1342369)

Ich musste die eine (!) Routine jetzt zig mal durcharbeiten, um zu verstehen, was die überhaupt macht. Das ist ja vollkommen unübersichtlich mit den ganzen try...excepts.

Delphi-Quellcode:

procedure ErrorLog(ErrorInfo: string);
var
  slSave: TStringlist;
  sLogFileName: string; // um Logdateinamen vorzugeben
begin
  sLogFileName := ChangeFileExt(paramstr(0), '.log');
  slSave := TStringlist.Create;

  if FileExists(sLogFileName) then slSave.LoadFromFile(sLogFileName);

  slSave.Text := DateTimeToStr(Now) + #13#10 +
    ErrorInfo + #13#10 + #13#10 + slSave.Text;

  try // Schreibrechte im Ordner vorhanden?
    slSave.SaveToFile(sLogFileName);
  except
    MessageBox(0, 'Cannot write to LogFile.', 'ERROR', mb_IconHand);
  end;

  slSave.Free;
end;

Ja, eins sollte reichen :wink:

[Luckie]

Und wo ist der Ressourcenschutzblock geblieben?

[Erdbär]

Was sollte da wie (und warum) geschützt werden?

[FarAndBeyond]

Zitat:

if FileExists(sLogFileName) then slSave.LoadFromFile(sLogFileName);

Beim Zugriff auf die Festplatte kann es zu zahlreichen Problemen kommen...

Neue externe Platten verwenden einen Sleep-Modus... ob das "FileExists" da ausreicht um die wachzurütteln???

Nur so ein Gedanke...

btw: Ich hab' bei EnumWindows versucht mit "If" abzufragen und D7 sagt mir "Incompatible Types"... Na ja, muß man ja auch nicht in diesem Fall, hatte mich nur gewundert da das bei "GetClassName" ja auch funzt (Prüfung auf <> 0).

@Erdbär:
Na das bei einer Exception die Stringlist trotzdem freigegeben wird !!!

[Luckie]

Zacherl hat doch in Beitrag http://www.delphipraxis.net/1342361-post39.html gezeigt, wie es geht.

PS: Warum hängst du den Qeulltext als Text-Datei an?

[Erdbär]

Starte das Programm doch von einer "schlafenden" Festplatte, vielleicht wacht die HD schon dadurch auf?

[FarAndBeyond]

@Erdbär: es ging um das Speichern...

@Luckie: wollte nicht schon wieder so 'ne lange Schlange posten... ist doch egal ob "txt" oder "dpr" oder "zip"...

[Erdbär]

Habe kein Floppy-Diskettenlaufwerk mehr :oops: