Dll dizinini bulmak

[carsoft]

Dll bulunan dizini nasıl alabilirim ExtractFilePath(ParamStr(0)) veya ExtractFilePath(Application.ExeName) gibi

Kod: Tümünü seç

ShellExecute(lpici.hWnd, 'open', PChar(ExtractFilePath(Application.ExeName)+'Kasa.exe'), PChar(pcm^.FileName) , nil, SW_SHOWNORMAL));

[SimaWB]

Önce
viewtopic.php?t=32860

[vkamadan]

Merhabalar ,
@SimaWB nin önerisine benzer ama bir parça daha kısa bir öneride şu olabilir ,

Kod: Tümünü seç

ExtractFilePath( GetModuleName( HInstance ) )

[SimaWB]

Merhabalar ,
@SimaWB nin önerisine benzer ama bir parça daha kısa bir öneride şu olabilir ,

Kod: Tümünü seç

ExtractFilePath( GetModuleName( HInstance ) )

Benim gibi Delphi 5 kullanmak zorunda kalanlar için GetModuleName tanımlı değil Paylaştığım kod hali hazırda kullandığım bir koddu o zamanlar
Sanırım Delphi 7 ve sonrasında GetModuleName var. O yüzden

[carsoft]

herkese teşşekür ederim sayenizde çözdüm