Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.13;
Скачать: 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 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
1-1106812418
bon
2005-01-27 10:53
2005.02.13
компонент Outlook bar для Делфи7


8-1099003861
GuestTM
2004-10-29 02:51
2005.02.13
Как запустить скринсейвер .SCR на форму в приложении???


1-1107192982
hawkins
2005-01-31 20:36
2005.02.13
в компоненте SynEdit на месте символов #10 #13 квадраты


1-1106950097
NeedHelp
2005-01-29 01:08
2005.02.13
Kak uznat zapushenno li konkretnoe prilozhenie??


1-1106939009
serg128
2005-01-28 22:03
2005.02.13
Как определить день недели по дате?