XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dateinamen aus vollständigem Pfad per API ermitteln
DEF GetFileTitle(3) ! comdlg32,GetFileTitleA
Declare Buffer#,Pfad#
Dim Buffer#,260
Dim Pfad#,260
String Pfad#,0 = c:\windows\system\dateiname.dat
GetFileTitle(Pfad#,Buffer#,260)
Print String$(Buffer#,0)
Dispose Buffer#
Dispose Pfad#
Waitinput
End