Nein, geht nicht ... leider.
Also die Funktion selbst funktioniert ja tadellos!
Aber ich erhalte mittlerweile beim Programmstart die oben dargestellte Fehlermeldung.
Ich nehme an, dass es mit dem ShareMem zu tun hat ... aber eine Lösung habe ich nicht!
EDIT:
Hab so eben die Lösung gefunden, die mir eine fehlerfreie Übergabe ermöglicht!
Funktion:
function GetFileVersion(const Filename: PChar; Typ: Integer): ShortString; stdcall;
Aufruf:
getfileversion(PChar(application.ExeName),2);
Wichtig war zum einen, dass ich keinerlei Strings übergebe, und wenn, dann nur ShortStrings oder PChar's!!!
Danke Aenogym, dass du mich auf die Idee gebracht hast. Dadurch hab ich angefangen neu danach zu suchen!
Tja ... wer suchet - der findet!
(Habe die Lösung
hier gefunden)
Und da ich jetzt auch weiß, wieso und warum ... hab ich wieder ordentlich dazu gelernt!!!
gReeTz Blue 