运行时程序如何读程序自身

Question

只需要读取不需要改写。比如做自身校验

Answer 1

我试了 AssignFile   FileOpen TFileStream 都不行

Answer 2

Filename := ParamStr(0);
  //打开文件
  hFile := CreateFile(  PChar(FileName),
                              GENERIC_READ,
                              FILE_SHARE_READ ,
                              Nil,
                              OPEN_EXISTING,
                              FILE_ATTRIBUTE_ARCHIVE or
                              FILE_ATTRIBUTE_HIDDEN or
                              FILE_ATTRIBUTE_NORMAL or
                              FILE_ATTRIBUTE_SYSTEM,
                              0
                              );
...

Answer 3

昨天搞定 了不是代码问题...
是调试状态 ide占用..
编译出来 运行代码都没问题

Answer 4

Filename := ParamStr(0); 
WinExec(PChar(Filename), SW_SHOWMAXIMIZED);

Answer 5

这个哥们对，会提示占用就是你自己已经以独占模式createfile了自己。或者你调用第三方控件的代码独占了，而你不知道。或者是杀毒软件等其他程序独占了