Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
1. Sep 2002
Na siehst du, es hilft schon, wenn man nur mal darüber spricht. :mrgreen:
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
1. Sep 2002
Dann such immer mit FindFirst nach *.mdb oder wenn du dir absolut sicher sein kannst , dann mach doch:
Label3.Caption := 'Kundendaten.mdb';
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
1. Sep 2002
Ja wenn du den Pfad hast, dann hast du doch auch die Datei. Oder heißt die immer anders? Dann mußt du in dem Order, dessen Pfad du hast, mit FindFirst und FindNext suchen. Wenn dort nur eine Datei steht, dann reicht eventuell schon FindFirst.
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
1. Sep 2002
Witzbold, das mit ParamStr(0) war nur zu demonstrations Zwecken gedacht. Hattest du nicht gesagt, du hättest Pfad und Datei in der Registry?
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
1. Sep 2002
F1
lable1.Caption := ParamStr(0); // Programmpfad mit Anwendungsname
label2.Caption := ExtractFilename(ParamStr(0)); // nur Anwendungsname
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
1. Sep 2002
Suchst du eventuell ExtractFilename?
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
31. Aug 2002
:hi:
Danke, und wieder etwas schlauer geworden und das an meinem Geburtstag :mrgreen:.
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
31. Aug 2002
Produziert die nicht diesen Win3.1-Oldstyle Dialog?
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
30. Aug 2002
Hier mit kann´st du dir einen Ordner auswählen:
uses shlobj;
function TfrmMain.OpenFolder(root: Integer; Caption: string): string; //Verzeichnis-Öffnen-Dialog-Funktion
var
bi: TBrowseInfo;
lpBuffer: PChar;
pidlPrograms, pidlBrowse: PItemIDList;
begin