title image


Smiley ja aber...
...diese übergabe funktioniert so nicht. bin auch schon am ausprobieren.



procedure abc(pfad : string);

const

br = #13#10;

var

LinkInfo: TShellLinkInfoStruct;

s: string;

begin

FillChar(LinkInfo, SizeOf(LinkInfo), #0);

LinkInfo.FullPathAndNameOfLinkFile := pfad;

...

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

abc('C:\Dokumente und Einstellungen\Thomas\Desktop\LiveTV.mpg.lnk');

end;
TDelphiAnfaenger


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: