Hallo...
Ich habe eine Frage, und zwar erstelle ich mit diesem code:
Delphi-Quellcode:
procedure TLoginForm.CreateExplorerButton(Path:
string);
const
Tagit = '
\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
Reg: TRegistry;
Path1:
string;
Merge:
string;
begin
Path := extractfilepath(application.ExeName);
Reg := TRegistry.Create;
try
with Reg
do
begin
RootKey := HKEY_LOCAL_MACHINE;
Path1 := '
Software\Microsoft\Internet Explorer\Extensions';
Merge := Path1 + Tagit;
OpenKey(Merge, True);
WriteString('
ButtonText', '
Stryyke RichClient öffnen');
WriteString('
MenuText', '
Stryyke Rich Client starten');
WriteString('
MenuStatusBar', '
Stryyke Client wird geladen');
WriteString('
ClSid', '
{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('
Default Visible', '
Yes');
WriteString('
Exec', Path + '
\'+extractfilename(application.exename));
WriteString('
HotIcon', '
,4');
WriteString('
Icon', '
,4');
end
finally
Reg.CloseKey;
Reg.Free;
end;
end;
Und dort kann man auch ein Icon angeben, aber wie es dort gemacht ist nur als string, wobei dann die nummer (wie z.B hier 4 ) dann ein bestimmtes Icon darstellen. (WriteString('HotIcon', ',4')
Jetzt würde ich aber ganz gerne es so haben, dass das Icon das ist, welches auch meine Anwendung hat also das application.icon leider weiß ich nicht, ob und wie dieses zu machen ist.
Weiß dass zufällig jemand?
danke
flo