Форум: "WinAPI";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
ВнизЧто-то не понимаю разницы Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.04 c