SendTo-Aufruf

[Dieter Aschenwald]

Hallo,

ich möchte wie im Windows-Explorer möglich, die "Senden an" Funktionalität nutzen. Zu diesem Zweck werden bereits aus dem Shell-Folder "SendTo" alle möglichen Verknüpfungen ausgelesen. Es soll nun eine bestimmte Verknüpfung bzw. Datei für den Versand verwendet werden, z.B. die Datei "E-Mail-Empfänger.MAPIMAIL", nur wie ???. Wer kann mir hier helfen?

Danke,
Dieter Aschenwald.

[Jens Schumann]

Hallo Dieter,<br>versuch es mal damit:<br>
<pre><font size="1" face="Verdana">
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
WinDir : Array[0..255] of Char;
LnkDir : String;
LnkFile : String;
ProgDir : String;
OpenFile : String;
begin
GetWindowsDirectory(WinDir,256);
LnkDir:=WinDir+'\sendto\';
LnkFile:=LnkDir+'notepad.lnk';
OpenFile:=ExtractFilepath(ParamStr(0))+'unit1.pas' ;
ShellExecute(Handle,'open',PChar(lnkfile),PChar(op enfile),Nil,SW_SHOW );
end;
</font></pre><br>:-) Jens Schuman