Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
7. Mai 2007
Sehr schön, muss nur noch SearchTool hinbekommen und das war dann der letzte schwerwiegende Bug. Danach geht es an die Betatester (Bugs werden selbstverständlich entfernt) und dann bekommen alle von euch die Belohnung (ich aber auch, nach über 1,5 Jahren Verspätung wird das eine Befreiung sein).
Ich bedanke mich hiermit nochmal bei allen Leuten, die mir in den letzten Monaten auf meine Fragen...
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
7. Mai 2007
Ah, ich glaube jetzt habe ich es verstanden.
begin
inherited;
anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
for i := 0 to (anzahl - 1) do
begin
size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
Dateiname := StrAlloc(size);
DragQueryFile(Msg.WParam, i, Dateiname, size);
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
7. Mai 2007
Ich habe nun
Dateiname := StrAlloc(Msg.WParam);
. Wieso gibt DirectoryExists nun immer True zurück ?
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
7. Mai 2007
Und wie soll ich an den Pfad rankommen ?
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
7. Mai 2007
Hi,
wenn ich einen Ordner in mein Programm ziehen möchte, gibt DirectoryExists grundsätzlich False zurück. Die Variable "Dateiname" enthält immer ein Zeichen. Könnte es daran liegen, wenn nicht, wo dann ?
procedure TfrmMain.WMDROPFILES(var Msg: TMessage);
var found : TStrings;
i : Integer;
j : Integer;
anzahl : Integer;
...