Ich habe mal ein Minimalprogramm erstellt. Hier ist er auch da.
Delphi-Quellcode:
procedure TForm1.btn1Click(Sender: TObject);
var
item: TJumpListItem;
begin
JumpList1.AddCategory('eins');
JumpList1.AddCategory('zwei');
item := JumpList1.TaskList.Add as TJumpListItem;
item.FriendlyName := 'OSK';
item.path := 'C:\Windows\System32\osk.exe';
item.Icon := 'C:\Windows\System32\osk.exe';
for var i := 0 to 4 do
begin
item := JumpList1.CustomCategories[0].Items.Add as TJumpListItem;
with item do
begin
path := Application.ExeName;
Arguments := 'Test'+i.ToString;
FriendlyName := 'Test'+i.ToString;
path := Application.ExeName;
icon := Application.ExeName
end;
end;
end;
Die Idee mit dem Virenscanner scheint ziemlich gut gewesen zu sein. Wenn der abgeschaltet ist, geht es anscheinend ohne Fehlermeldung. Also erstmal danke.
Jetzt muss ich nur noch herausbekommen, wie ich dem Scanner abgewöhne dort zu stänkern. Kann ja nicht ständig das Internet abschalten. Schlucken tut er ihn nicht. Na ja, wollte sowieso wechseln.