skinash

Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Maks150988 А как ты создаёшь окно диалога открытия файлов на WinAPI? Там наверняка должен быть параметр, отвечающий за центрирование. Добавлено: GreatOne Смотри в виндовой справке ShFileOperation Вот пример: Код: procedure TForm1.Button2Click(Sender: TObject); var OpStruc: TSHFileOpStruct; frombuf, tobuf: array [0..128] of Char; begin FillChar(frombuf, SizeOf(frombuf), 0); FillChar(tobuf, SizeOf(tobuf), 0); StrPCopy(frombuf, 'd:\brief\*.*'); StrPCopy(tobuf, 'd:\temp\brief'); with OpStruc do begin Wnd := Handle; wFunc := FO_COPY; pFrom := @frombuf; pTo := @tobuf; fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION; fAnyOperationsAborted := False; hNameMappings := nil; lpszProgressTitle := nil; end; ShFileOperation(OpStruc); end; |
|