winexec ile oluşturduğum text dosyayı açamıyorum.

[hdayi]

merhaba,

çalışdığı bilgisayarın mac adresini string olarak dönderen bir fonksiyon yazdım. İçeriği

Kod: Tümünü seç

ipconfig /all >ipnf.txt

olan ipcnf.bat dosyasını

Kod: Tümünü seç

WinExec(pchar(ExtractFilePath(Application.Exename)+'ipcnf.bat'),SW_HIDE);

metodu ile çalıştırıp, ipcnf.txt dosyasını oluşturuyorum.
ipcnf.txt dosyasını açarken, windows 98 makinalarda,

dosya başka bir işlem tarafından kullanılıyor

gibi bir mesaj veriyor.

Bunu çözmenin bir yolu var mıdır?

Teşekkürler...

[fduman]

Dosyayı nasıl, neyle açıyorsun?

Ayrıca bkz. viewtopic.php?t=7297

[onur301]

eğer txt dosyaını notepad ile açacaksan notepad.exe'ye (not defterine) açmak istediğin dosyanın tam yolunu parametre olarak belirtmen lazım...

[mussimsek]

sanırım daha işlem bitmeden dosyayı açmaya çalışıyorsun. Araya biraz mola versen.

Sleep(2000);

Kolay gelsin.

[gkimirti]

bu procedure ile islem bitene kadar programın bekler
bu tarz bir sey calıstıracagım zaman ben hep bunu kullanırım
bir kotu tarafı Dos penceresini gizleyemiyor

Kod: Tümünü seç

function ExecWait(const Cmd: string): Integer;
var
  ProcessInfo: TProcessInformation;
  hProcess: THandle;
  ReturnCode: Integer;
  StartupInfo: TStartupInfo;

  procedure ChkBool(Value: Boolean; const Msg: string);
  begin
    if (Value = false) then
      raise exception.create(Msg);
  end;

begin
  FillChar(StartupInfo, SizeOf(StartupInfo), 0);

  ChkBool(CreateProcess(nil, PChar(Cmd), nil, nil, False,
    CREATE_DEFAULT_ERROR_MODE + NORMAL_PRIORITY_CLASS,
    nil, nil, StartupInfo, ProcessInfo),
    'Error during CreateProcess');
  hProcess := ProcessInfo.hProcess; // save the process handle
  //Close the thread handle as soon as it is no longer needed
  CloseHandle(ProcessInfo.hThread);
  ReturnCode := WaitForSingleObject(hProcess, INFINITE);
  ChkBool(dword(ReturnCode) <> WAIT_FAILED, 'Error in WaitForSingleObject');
  // The process terminated
  ChkBool(GetExitCodeProcess(hProcess, dword(Result)),
    'Error in GetExitCodeProcess');
  // Close the process handle as soon as it is no longer needed
  ChkBool(CloseHandle(hProcess), 'Error in process Close Handle');
end;

[MakPRO]

mac adresini tespit eden delphi codeları aşağıdaki linkte var. bende bu programı kullanıyorum.

http://www.swissdelphicenter.ch/torry/s ... php?id=651

iyi çalışmalar

[hdayi]

ben bakana kadar acaip çok cevap gelmiş.

sleep ile olmadı. 2 saniye beklememe rağmen hala kullanılıyor diyor.
Text dosyayı bir memo'ya okutuyorum.
macpro'nun söylediği fonksiyon 98'de çalışıyor 2000'de çalışmıyor.
sanırım 98 için bu kodu kullanacağım.

Teşekkürler

[MakPRO]

ben XP de kullanıyorum çalışıyor . Ama windows 2000 de çalışmıyorsa benim içinde problem olur .
tşk

[P206]

Selalar

CreateProcess ile yapılan işlemleri ben win 98, XP, win2000 de kullanıyorum ve bir problem yaşamıyorum. Programınızla alakalı bir hata dışında bu üç sistemde de çalışır.