Forum: Programmieren allgemein
Delphi
by Garfield,
5. Aug 2010
Ich wurde freundlicherweise darauf hingeweisen, dass es richtig so wäre:
iSize := DragQueryFileW(Msg.wParam, i, nil, 0) + 1;
Vielen Dank.
Forum: Programmieren allgemein
Delphi
by Garfield,
4. Aug 2010
Vielleicht solltest Du da auch Widefunktionen verwenden. Ich habe das mal so gemacht:
procedure T***.WMDROPFILES(var Msg: TMessage);
var
pDragFile : PWideChar;
iFileCount : integer;
i, iSize : integer;
slDropList : TStringList;
begin
{
Forum: Programmieren allgemein
Delphi
by Garfield,
4. Aug 2010
Sollte doch eigentlich nicht schwer sein:
Nur für ExtractFileExt musst Du Dir etwas überlegen.