Скачать: CL | DM;

Что-то не понимаю разницы   Найти похожие ветки 

← →
slart ©   (2004-12-28 23:29) [0]


procedure DragDropFiles(DirTo:string;Action:Cardinal);
var  i:integer;
    s:string;
    SHFileOpStruct : TSHFileOpStruct;
    handle:Hwnd;
begin
 s:="";
 for i:=0 to Form1.ListBox1.Items.Count-1 do
   if Form1.ListBox1.Selected[i] then
     s:=s+vib[i]+Form1.Listbox1.Items[i]+#0;
 s:=s+#0;
 with SHFileOpStruct do
 begin
     Wnd := Handle;
     wFunc:=Action;
     pFrom := pchar(s);
     pTo := pchar(DirTo);
     fFlags := 0;
     fAnyOperationsAborted := False;
 end;
 SHFileOperation( SHFileOpStruct );
end;

если я вызываю DragDropFiles("c:\",FO_COPY), то файлы копируются без окна статуса, а если пишу просто wFunc:=FO_COPY, то с ним.. не понимаю разницы..

---

← →
Cobalt ©   (2004-12-28 23:52) [1]

Действительно, не вижу разницы, только отладка тебе поможет.

Но...
Вообще-то, принято перед использованпием структур из обнулять:
FillChar(SHFileOpStruct,SizeOf(SHFileOpStruct),0)

---

← →
slart ©   (2004-12-28 23:58) [2]

про обнуление забыл) но не в этом суть и не поможет сие, как же быть-то.. приичем даже пробовал так:

Action:byte;
case Action of
0:wFuns:=FO_COPY;
end;
- та же история!

---

← →
GuAV ©   (2004-12-29 00:02) [3]

slart ©   (28.12.04 23:29)
pTo := pchar(DirTo);

А где второй нуль терминатор ?

---

← →
slart ©   (2004-12-29 00:05) [4]

недочет! верно! но опять не по сути, а по "офрфографии" так сказать )

---

← →
slart ©   (2004-12-29 00:34) [5]

ну может хоть посоветуете как мне бы справиться с сей проблемой? что-то я нигде не могу найти ответа..

---

← →
Shaman_Naydak   (2004-12-29 07:32) [6]

Лично мне, Джим, не нравится больше всего Wnd:=Handle..
а Handle у нас не инициализирован и лежит там, что бог на душу положит.. да и в принципе окно может и не показаться, если винда быстро справится с делом

---

← →
slart ©   (2004-12-29 07:41) [7]

копирую целый фильм, чтобы уж точно показалось.. а насчет хэндла.. вроде катит..

---

← →
slart ©   (2004-12-29 07:58) [8]

все, разобрался.. это было из-за неопределенного handle, хотя сама суть произошедшего интересна..

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.04 c