Icon ändern bei CreateProcess

[Dirk Kollmar]

Hallo Leute,

irgendwie bin ich zu blöd:

Ich kann zur Laufzeit das Icon meiner Applikation ändern, aber nach Create Process sehe ich immer nur das DOS-Icon.

Vielen Dank im voraus !!

Dirk

res:= CreateProcess(nilPCHAR (Programm + ' ' + Parameter), nil,nil,False, CREATE_NEW_CONSOLE or High_PRIORITY_CLASS, nil, PChar (ExtractFilePath (Programm)),SUInfo, ProcInfo);

FICON := Hauptform.IconArr [ico].Handle;
SendMessage (ProcInfo.hProcess, WM_SetIcon, ICON_SMALL, FICON);
SendMessage (Application.Handle, WM_SetIcon, ICON_SMALL, FICON);