Zitat von
Sanguis:
*grml* Jetzt wollte ich nur im OpenDialog den InitialPath eintragen, aber das geht auch nicht.
form1.bsSkinOpenDialog1.InitialDir := ExtractFilePath(Application.exename)+'..\';
Da bekomm ich "Error setting Path D:\usw."
Gruß,
Andy
versuch es mal in etwa so (ungetestet)
Delphi-Quellcode:
str_initdir:= ExpandFileName(ExtractFilePath(Application.exename)+'\..\') ;
if DirectoryExists(str_initdir) then
dlgOpen1.InitialDir:= str_initdir
else
dlgOpen1.initialdir:= ExtractFilePath(Application.exename);
if dlgOpen1.execute then
....