خواهم يك فولدر مثل ويندوز باز كنم

[ali_abbasi22145]

سلام
1.با دلفي 7 مي خواهم فولدر C:\TEMP مثل ويندوز باز كنم.
2. با Windows explorer فولدر C:\TEMP مثل ويندوز باز كنم.

[DAMAVAND]

خوب مشکل کجاست باز کنيد :

ShellExecute(Handle,'open','c:\temp',nil,nil,SW_SH OW);
Shellapi هم به Uses اضافه کنيد.

[ali_abbasi22145]

سلام
روش شما وقتی که 'c:\temp' یا مسیر فقط بدهید جواب می دهد , کسی روش بهتری ندارد؟

[Felony]

GetSpecialDirectory

[FiACKER]

سلام
فکر کنم منظوره ایشون اینه که مثلاً چطور پوشه هایی مثله Windows ، History Temp و ... رو با یه تابع به دست اورد!
مثله تابعه Environ در vb6.
البته این سواله من هم هست !
چطور می شه همچین پوشه هایی رو ادرسشون رو بدست اورد !؟
البته فکر کنم تابعی که SilverSoft گفتند باشه ، ولی با کدوم Uses !؟

[hojjatcroos]

می توانید برای این کار از ریجستری استفاده کنید


HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Shell Folders

[lord_viper]

میتونین از تابع GetTempPath هم برای پیدا کردن مسیر پوشه temp استفاده کنین



DWORD GetTempPath(

DWORD nBufferLength, // size, in characters, of the buffer
LPTSTR lpBuffer // address of buffer for temp. path
);

[ali_abbasi22145]

خوب مشکل کجاست باز کنيد :

ShellExecute(Handle,'open','c:\temp',nil,nil,SW_SH OW);
Shellapi هم به Uses اضافه کنيد.

سلام
من يك سري فولدر شامل يك سري فايل عكس JPEG دارم به نام هاي مثلا: 100 و101و102 كه شماره كارمندي افراد مي باشد و مي خواهم اين فولدرها را با دستور زير باز كنم خطا مي دهد.
ShellExecute(Handle,'open','C:\TEMP'+MainForm.ADOT able1.FieldByName('employee_number').AsString,nil, nil,SW_SHOW);
خطا:
[Error] Documents_Unit.pas(98): Incompatible types: 'String' and 'PAnsiChar'

[ali_abbasi22145]

مشكل را كاملا حل كردم اين هم راه حل كامل:
var Current_Path:String;
begin
Current_Path := Path_of_Documents1+'\'+MainForm.ADOTable1.FieldByN ame(Field_name1).AsString;
//uses ShellAPI;
ShellExecute(Handle,
'OPEN',
PChar('explorer.exe'),
PChar('/select, "' + Current_Path + '"'),
nil,
SW_NORMAL) ;