Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Maza Faka

Ветеран


Сообщения: 604
Благодарности: 133

Профиль | Отправить PM | Цитировать


amel27
Низкий тебе поклон за помощь и отличный пример! В жизни бы не додумался преобразовать строку в бинарник. А я ведь пытался формировать строку с Chr(0) вот по этому примеру:
Цитата:
uses ShellApi;
...
var SHFileOpStruct:TSHFileOpStruct;
From:array [0..255] of Char;
begin
From:='D:\1.txt'+#0+'D:\2.txt'+#0+#0;
with SHFileOpStruct do begin
Wnd:=Handle;
wFunc:=FO_COPY;
pFrom:=@From;
pTo:='D:\';
fFlags:=FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
SHFileOperation(SHFileOpStruct);
end;
да только безуспешно, так, как символы после первого нулевого байта игнорировались. Ещё раз огромное спасибо!

P.S.
Интересно, а почему на Дельфи такое формирование строки получается, а на AutoIt-е нужно преобразовывать в бинарный код?

-------
Сообщение помогло? Не забудьте нажать на Полезное сообщение


Последний раз редактировалось Maza Faka, 13-04-2008 в 09:21.


Отправлено: 09:10, 13-04-2008 | #435